:- set(i,3).
:- set(minacc,0.80).          % [0.0-1.0] Precisión mínima para cada regla
            :- set(noise,5).     % Ejemplos negativos (como máximo) que puede cubrir una regla
:- set(minpos,2).              % Número de ejemplos positivos (como mínimo) que debe cubrir cada regla
:- set(nodes,10000).  
:- set(clauselength,6).
:- set(samplesize,30).

:- set(test_pos, './student_loan/extended_aleph/test4.f').
:- set(test_neg, './student_loan/extended_aleph/test4.n').

:- set(grouping, true).
:- set(discretization, true).

:- grouping( no_payment_due(link), enlist(link, attribute)).
:- grouping( no_payment_due(link), longest_absense_from_school(link, attribute)).
:- grouping( no_payment_due(link), enrolled(link, attribute, no)).


:- discretization( no_payment_due(link), enrolled(link, no, attribute)).

:-modeh(*,no_payment_due(+student)).
:-modeb(*,male(+student)).
%:-modeb(*,longest_absense_from_school(+student,#number)).
        :-modeb(*,longest_absense_from_school(+student,-number)).

%:-modeb(*,enrolled(+student,#school,#integer)).
%:-modeb(*,enrolled(+student,-school,#integer)).
%:-modeb(*,enrolled(+student,#school,-integer)).
:-modeb(*,enrolled(+student,-school,-integer)).



%:-modeb(*,enlist(+student,#armed_forces)).
        :-modeb(*,enlist(+student,-armed_forces)).

:-modeb(*,unemployed(+student)).
:-modeb(*,filed_for_bankrupcy(+student)).
:-modeb(*,disabled(+student)).



:-determination(no_payment_due/1,male/1).
:-determination(no_payment_due/1,longest_absense_from_school/2).
:-determination(no_payment_due/1,enrolled/3).
:-determination(no_payment_due/1,enlist/2).
:-determination(no_payment_due/1,unemployed/1).
:-determination(no_payment_due/1,filed_for_bankrupcy/1).
:-determination(no_payment_due/1,disabled/1).









% Types
:- consult(misc).

% Background
:- consult(male).
:- consult(longest_absense_from_school).
:- consult(enrolled).
:- consult(enlist).
:- consult(unemployed).
:- consult(filed_for_bankrupcy).
:- consult(disabled).














